This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Cmd+Shift+Enter.

# Install packages and activating library

install.packages('tidyverse')
trying URL 'https://cran.rstudio.com/bin/macosx/big-sur-arm64/contrib/4.3/tidyverse_2.0.0.tgz'
Content type 'application/x-gzip' length 428470 bytes (418 KB)
==================================================
downloaded 418 KB

The downloaded binary packages are in
    /var/folders/qb/kypsbnkd3x17lyrmt3wfgwph0000gn/T//RtmpCkwRAS/downloaded_packages
library(tidyverse)
── Attaching core tidyverse packages ───────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.2     ✔ readr     2.1.4
✔ forcats   1.0.0     ✔ stringr   1.5.0
✔ ggplot2   3.4.3     ✔ tibble    3.2.1
✔ lubridate 1.9.2     ✔ tidyr     1.3.0
✔ purrr     1.0.2     ── Conflicts ─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the ]8;;http://conflicted.r-lib.org/conflicted package]8;; to force all conflicts to become errors

Add a new chunk by clicking the Insert Chunk button on the toolbar or by pressing Cmd+Option+I.

When you save the notebook, an HTML file containing the code and output will be saved alongside it (click the Preview button or press Cmd+Shift+K to preview the HTML file).

The preview shows you a rendered HTML copy of the contents of the editor. Consequently, unlike Knit, Preview does not run any R code chunks. Instead, the output of the chunk when it was last run in the editor is displayed.

# Reading in CSV File

df <- read_csv('/Users/investmentguy/Documents/python_stuff/coding_temple/week6/day3/Call of Duty Reviews.csv')
Rows: 97 Columns: 9── Column specification ─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
chr (6): Game Title, Platform, Release Year, Publisher, Critic Reviews, User Reviews
dbl (3): Metascore, Critic Compound Score, User Compound Score
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
View(df)
# Null and Alternative Hypothesis

Ho, game_title Black Ops II, leads in metascore, critic & user compound
Error: unexpected ',' in "Ho,"
# Replaced Spaces in Columns with underscores and converted all to lowercase

names(df) <- gsub(" ","_", tolower(names(df)))

df
# Checking for Null Values
colSums(is.na(df))
           game_title              platform          release_year             publisher             metascore        critic_reviews 
                    0                    16                    16                     0                    13                     9 
         user_reviews critic_compound_score   user_compound_score 
                    0                     9                     0 
# Dropping NA Values for metascore

df <- df %>% drop_na(metascore)
#Confirming Current Null Values

colSums(is.na(df))
           game_title              platform          release_year             publisher             metascore        critic_reviews          user_reviews critic_compound_score 
                    0                    16                    16                     0                     0                     2                     0                     2 
  user_compound_score 
                    0 
# Dropping Null Values for critic_compound_score

df <- df %>% drop_na(critic_compound_score)
# Confirming Current Null Value Count
# I will keep the NUll Values for platform and release_year, for my hypothesis testing is not concerned with these details, only the scores for each title
colSums(is.na(df))
           game_title              platform          release_year             publisher             metascore        critic_reviews          user_reviews critic_compound_score 
                    0                    16                    16                     0                     0                     0                     0                     0 
  user_compound_score 
                    0 
#table(df['game_title'])

# Mutate new column with critc and user compound and times by 100 to create simplicity when running analysis with metascore

df_mutate <- mutate(df,
                    user_and_critic_compound_score = round((critic_compound_score * user_compound_score)*100))
df <- df_mutate
df
install.packages('plyr')
trying URL 'https://cran.rstudio.com/bin/macosx/big-sur-arm64/contrib/4.3/plyr_1.8.8.tgz'
Content type 'application/x-gzip' length 1028036 bytes (1003 KB)
==================================================
downloaded 1003 KB

The downloaded binary packages are in
    /var/folders/qb/kypsbnkd3x17lyrmt3wfgwph0000gn/T//RtmpCkwRAS/downloaded_packages
library(plyr)
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
You have loaded plyr after dplyr - this is likely to cause problems.
If you need functions from both plyr and dplyr, please load plyr first, then dplyr:
library(plyr); library(dplyr)
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Attaching package: ‘plyr’

The following objects are masked from ‘package:dplyr’:

    arrange, count, desc, failwith, id, mutate, rename, summarise, summarize

The following object is masked from ‘package:purrr’:

    compact
ddply(df,"game_title", numcolwise(sum))
ggplot(df, aes(x=game_title,y=metascore))+ geom_bar(stat = 'identity')

ggplot(df, aes(x=game_title, fill=metascore)) + geom_bar(position='dodge')

LS0tCnRpdGxlOiAiV2VkbmVzZGF5IEhvbWV3b3JrIgpEYXRlOiAwOC0yMy0yMDIzCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KClRoaXMgaXMgYW4gW1IgTWFya2Rvd25dKGh0dHA6Ly9ybWFya2Rvd24ucnN0dWRpby5jb20pIE5vdGVib29rLiBXaGVuIHlvdSBleGVjdXRlIGNvZGUgd2l0aGluIHRoZSBub3RlYm9vaywgdGhlIHJlc3VsdHMgYXBwZWFyIGJlbmVhdGggdGhlIGNvZGUuCgpUcnkgZXhlY3V0aW5nIHRoaXMgY2h1bmsgYnkgY2xpY2tpbmcgdGhlICpSdW4qIGJ1dHRvbiB3aXRoaW4gdGhlIGNodW5rIG9yIGJ5IHBsYWNpbmcgeW91ciBjdXJzb3IgaW5zaWRlIGl0IGFuZCBwcmVzc2luZyAqQ21kK1NoaWZ0K0VudGVyKi4KCmBgYHtyfQojIEluc3RhbGwgcGFja2FnZXMgYW5kIGFjdGl2YXRpbmcgbGlicmFyeQoKaW5zdGFsbC5wYWNrYWdlcygndGlkeXZlcnNlJykKbGlicmFyeSh0aWR5dmVyc2UpCmBgYAoKQWRkIGEgbmV3IGNodW5rIGJ5IGNsaWNraW5nIHRoZSAqSW5zZXJ0IENodW5rKiBidXR0b24gb24gdGhlIHRvb2xiYXIgb3IgYnkgcHJlc3NpbmcgKkNtZCtPcHRpb24rSSouCgpXaGVuIHlvdSBzYXZlIHRoZSBub3RlYm9vaywgYW4gSFRNTCBmaWxlIGNvbnRhaW5pbmcgdGhlIGNvZGUgYW5kIG91dHB1dCB3aWxsIGJlIHNhdmVkIGFsb25nc2lkZSBpdCAoY2xpY2sgdGhlICpQcmV2aWV3KiBidXR0b24gb3IgcHJlc3MgKkNtZCtTaGlmdCtLKiB0byBwcmV2aWV3IHRoZSBIVE1MIGZpbGUpLgoKVGhlIHByZXZpZXcgc2hvd3MgeW91IGEgcmVuZGVyZWQgSFRNTCBjb3B5IG9mIHRoZSBjb250ZW50cyBvZiB0aGUgZWRpdG9yLiBDb25zZXF1ZW50bHksIHVubGlrZSAqS25pdCosICpQcmV2aWV3KiBkb2VzIG5vdCBydW4gYW55IFIgY29kZSBjaHVua3MuIEluc3RlYWQsIHRoZSBvdXRwdXQgb2YgdGhlIGNodW5rIHdoZW4gaXQgd2FzIGxhc3QgcnVuIGluIHRoZSBlZGl0b3IgaXMgZGlzcGxheWVkLgoKYGBge3J9CiMgUmVhZGluZyBpbiBDU1YgRmlsZQoKZGYgPC0gcmVhZF9jc3YoJy9Vc2Vycy9pbnZlc3RtZW50Z3V5L0RvY3VtZW50cy9weXRob25fc3R1ZmYvY29kaW5nX3RlbXBsZS93ZWVrNi9kYXkzL0NhbGwgb2YgRHV0eSBSZXZpZXdzLmNzdicpCmBgYAoKYGBge3J9ClZpZXcoZGYpCmBgYAoKYGBge3J9CiMgTnVsbCBhbmQgQWx0ZXJuYXRpdmUgSHlwb3RoZXNpcwoKSG8sIGdhbWVfdGl0bGUgQmxhY2sgT3BzIElJLCBsZWFkcyBpbiBtZXRhc2NvcmUsIGNyaXRpYyAmIHVzZXIgY29tcG91bmQKSGEsIGRvZXMgbm90IGxlYWQgaW4gbWV0YXNjb3JlLCBub3IgY3JpdGljICYgdXNlciBjb21wb3VuZApgYGAKCmBgYHtyfQojIFJlcGxhY2VkIFNwYWNlcyBpbiBDb2x1bW5zIHdpdGggdW5kZXJzY29yZXMgYW5kIGNvbnZlcnRlZCBhbGwgdG8gbG93ZXJjYXNlCgpuYW1lcyhkZikgPC0gZ3N1YigiICIsIl8iLCB0b2xvd2VyKG5hbWVzKGRmKSkpCgpkZgpgYGAKCmBgYHtyfQojIENoZWNraW5nIGZvciBOdWxsIFZhbHVlcwpjb2xTdW1zKGlzLm5hKGRmKSkKYGBgCgpgYGB7cn0KIyBEcm9wcGluZyBOQSBWYWx1ZXMgZm9yIG1ldGFzY29yZQoKZGYgPC0gZGYgJT4lIGRyb3BfbmEobWV0YXNjb3JlKQoKYGBgCgpgYGB7cn0KI0NvbmZpcm1pbmcgQ3VycmVudCBOdWxsIFZhbHVlcwoKY29sU3Vtcyhpcy5uYShkZikpCmBgYAoKYGBge3J9CiMgRHJvcHBpbmcgTnVsbCBWYWx1ZXMgZm9yIGNyaXRpY19jb21wb3VuZF9zY29yZQoKZGYgPC0gZGYgJT4lIGRyb3BfbmEoY3JpdGljX2NvbXBvdW5kX3Njb3JlKQpgYGAKCmBgYHtyfQojIENvbmZpcm1pbmcgQ3VycmVudCBOdWxsIFZhbHVlIENvdW50CiMgSSB3aWxsIGtlZXAgdGhlIE5VbGwgVmFsdWVzIGZvciBwbGF0Zm9ybSBhbmQgcmVsZWFzZV95ZWFyLCBmb3IgbXkgaHlwb3RoZXNpcyB0ZXN0aW5nIGlzIG5vdCBjb25jZXJuZWQgd2l0aCB0aGVzZSBkZXRhaWxzLCBvbmx5IHRoZSBzY29yZXMgZm9yIGVhY2ggdGl0bGUKY29sU3Vtcyhpcy5uYShkZikpCmBgYAoKYGBge3J9CiN0YWJsZShkZlsnZ2FtZV90aXRsZSddKQoKIyBNdXRhdGUgbmV3IGNvbHVtbiB3aXRoIGNyaXRjIGFuZCB1c2VyIGNvbXBvdW5kIGFuZCB0aW1lcyBieSAxMDAgdG8gY3JlYXRlIHNpbXBsaWNpdHkgd2hlbiBydW5uaW5nIGFuYWx5c2lzIHdpdGggbWV0YXNjb3JlCgpkZl9tdXRhdGUgPC0gbXV0YXRlKGRmLAogICAgICAgICAgICAgICAgICAgIHVzZXJfYW5kX2NyaXRpY19jb21wb3VuZF9zY29yZSA9IHJvdW5kKChjcml0aWNfY29tcG91bmRfc2NvcmUgKiB1c2VyX2NvbXBvdW5kX3Njb3JlKSoxMDApKQpkZiA8LSBkZl9tdXRhdGUKZGYKYGBgCgpgYGB7cn0KaW5zdGFsbC5wYWNrYWdlcygncGx5cicpCmxpYnJhcnkocGx5cikKYGBgCgpgYGB7cn0KCmBgYAoKYGBge3J9CmRkcGx5KGRmLCJnYW1lX3RpdGxlIiwgbnVtY29sd2lzZShzdW0pKQpgYGAKCmBgYHtyfQpnZ3Bsb3QoZGYsIGFlcyh4PWdhbWVfdGl0bGUseT1tZXRhc2NvcmUpKSsgZ2VvbV9iYXIoc3RhdCA9ICdpZGVudGl0eScpCmBgYAoKYGBge3J9CmdncGxvdChkZiwgYWVzKHg9Z2FtZV90aXRsZSwgZmlsbD1tZXRhc2NvcmUpKSArIGdlb21fYmFyKHBvc2l0aW9uPSdkb2RnZScpCmBgYAoKIVtdKGh0dHA6Ly8xMjcuMC4wLjE6MjgyNzcvY2h1bmtfb3V0cHV0LzlGQzNBQkJFMzM3MmVlYzIvNEQ0RjE4MEQvY3F5cm1qeWxwenZ5OC8wMDAwMTYucG5nKQo=